Read in Similarity Prediction Data Results:

similarity_combined <- read_excel("./model_results/similarity_combined.xlsx")
similarity_combined <- similarity_combined %>%
                        filter(!WCSS ==  -15095.00)
similarity_combined$Model <- as.factor(similarity_combined$Model)
similarity_combined$`Time Limit` <- as.factor(similarity_combined$`Time Limit`)
similarity_combined$Proportion <- as.factor(similarity_combined$Proportion)
similarity_combined$Transformation  <- as.factor(similarity_combined$Transformation)
similarity_combined$K <- as.factor(similarity_combined$K)
similarity_combined$`Optimizer Distance` <- as.factor(similarity_combined$`Optimizer Distance`)

WCSS Normalized Plots:

Euclidean:

wcss_grouped(similarity_combined, "Normalized", 0.10, "Euclidean", y_scale="free")

wcss_grouped(similarity_combined, "Normalized", 0.25, "Euclidean", y_scale="free")

wcss_grouped(similarity_combined, "Normalized", 0.75, "Euclidean", y_scale="free")

Manhattan:

wcss_grouped(similarity_combined, "Normalized", 0.10, "Manhattan", y_scale="free")

wcss_grouped(similarity_combined, "Normalized", 0.25, "Manhattan", y_scale="free")

wcss_grouped(similarity_combined, "Normalized", 0.75, "Manhattan", y_scale="free")

Individual Euclidean:

wcss_individual(similarity_combined, "Normalized", 0.10, "Euclidean", 30, 0, 25)

wcss_individual(similarity_combined, "Normalized", 0.25, "Euclidean", 30, 0, 90)

wcss_individual(similarity_combined, "Normalized", 0.75, "Euclidean", 30, 0, 360)

wcss_individual(similarity_combined, "Normalized", 0.10, "Euclidean", 90, 0, 25)

wcss_individual(similarity_combined, "Normalized", 0.25, "Euclidean", 90, 0, 90)

wcss_individual(similarity_combined, "Normalized", 0.75, "Euclidean", 90, 0, 260)

wcss_individual(similarity_combined, "Normalized", 0.10, "Euclidean", 180, 0, 25)

wcss_individual(similarity_combined, "Normalized", 0.25, "Euclidean", 180, 0, 90)

wcss_individual(similarity_combined, "Normalized", 0.75, "Euclidean", 180, 0, 260)

Individual Manhattan:

wcss_individual(similarity_combined, "Normalized", 0.10, "Manhattan", 30, 20, 130)

wcss_individual(similarity_combined, "Normalized", 0.25, "Manhattan", 30, 150, 450)

wcss_individual(similarity_combined, "Normalized", 0.75, "Manhattan", 30, 650, 1250)

wcss_individual(similarity_combined, "Normalized", 0.10, "Manhattan", 90, 25, 150)

wcss_individual(similarity_combined, "Normalized", 0.25, "Manhattan", 90, 150, 450)

wcss_individual(similarity_combined, "Normalized", 0.75, "Manhattan", 90, 650, 1200)

wcss_individual(similarity_combined, "Normalized", 0.10, "Manhattan", 180, 20, 130)

wcss_individual(similarity_combined, "Normalized", 0.25, "Manhattan", 180, 150, 450)

wcss_individual(similarity_combined, "Normalized", 0.75, "Manhattan", 180, 650, 1250)

Silhouette Normalized Plots:

Euclidean:

silhouette_grouped(similarity_combined, "Normalized", 0.10, "Euclidean", y_scale="free")

silhouette_grouped(similarity_combined, "Normalized", 0.25, "Euclidean", y_scale="free")

silhouette_grouped(similarity_combined, "Normalized", 0.75, "Euclidean", y_scale="free")

Manhattan:

silhouette_grouped(similarity_combined, "Normalized", 0.10, "Manhattan", y_scale="free")

silhouette_grouped(similarity_combined, "Normalized", 0.25, "Manhattan", y_scale="free")

silhouette_grouped(similarity_combined, "Normalized", 0.75, "Manhattan", y_scale="free")

Individual Euclidean:

silhouette_individual(similarity_combined, "Normalized", 0.10, "Euclidean", 30, -0.05, 0.90)

silhouette_individual(similarity_combined, "Normalized", 0.25, "Euclidean", 30, -0.05, 0.65)

silhouette_individual(similarity_combined, "Normalized", 0.75, "Euclidean", 30, -0.05, 0.68)

silhouette_individual(similarity_combined, "Normalized", 0.10, "Euclidean", 90, -0.05, 0.90)

silhouette_individual(similarity_combined, "Normalized", 0.25, "Euclidean", 90, -0.05, 0.60)

silhouette_individual(similarity_combined, "Normalized", 0.75, "Euclidean", 90, -0.05, 0.68)

silhouette_individual(similarity_combined, "Normalized", 0.10, "Euclidean", 180, -0.05, 0.90)

silhouette_individual(similarity_combined, "Normalized", 0.25, "Euclidean", 180, -0.05, 0.60)

silhouette_individual(similarity_combined, "Normalized", 0.75, "Euclidean", 180, -0.05, 0.68)

Individual Manhattan:

silhouette_individual(similarity_combined, "Normalized", 0.10, "Manhattan", 30, -0.05, 0.90)

silhouette_individual(similarity_combined, "Normalized", 0.25, "Manhattan", 30, -0.05, 0.65)

silhouette_individual(similarity_combined, "Normalized", 0.75, "Manhattan", 30, -0.05, 0.68)

silhouette_individual(similarity_combined, "Normalized", 0.10, "Manhattan", 90, -0.05, 0.90)

silhouette_individual(similarity_combined, "Normalized", 0.25, "Manhattan", 90, -0.05, 0.60)

silhouette_individual(similarity_combined, "Normalized", 0.75, "Manhattan", 90, -0.05, 0.68)

silhouette_individual(similarity_combined, "Normalized", 0.10, "Manhattan", 180, -0.05, 0.90)

silhouette_individual(similarity_combined, "Normalized", 0.25, "Manhattan", 180, -0.05, 0.60)

silhouette_individual(similarity_combined, "Normalized", 0.75, "Manhattan", 180, -0.05, 0.68)

WCSS Scaled Plots:

Euclidean:

wcss_grouped(similarity_combined, "Scaled", 0.10, "Euclidean", y_scale="free")

wcss_grouped(similarity_combined, "Scaled", 0.25, "Euclidean", y_scale="free")

wcss_grouped(similarity_combined, "Scaled", 0.75, "Euclidean", y_scale="free")

Manhattan:

wcss_grouped(similarity_combined, "Scaled", 0.10, "Manhattan", y_scale="free")

wcss_grouped(similarity_combined, "Scaled", 0.25, "Manhattan", y_scale="free")

wcss_grouped(similarity_combined, "Scaled", 0.75, "Manhattan", y_scale="free")

Individual Euclidean:

wcss_individual(similarity_combined, "Scaled", 0.10, "Euclidean", 30, 0, 3)

wcss_individual(similarity_combined, "Scaled", 0.25, "Euclidean", 30, 0, 8)

wcss_individual(similarity_combined, "Scaled", 0.75, "Euclidean", 30, 0, 70)

wcss_individual(similarity_combined, "Scaled", 0.10, "Euclidean", 90, 0, 3)

wcss_individual(similarity_combined, "Scaled", 0.25, "Euclidean", 90, 0, 8)

wcss_individual(similarity_combined, "Scaled", 0.75, "Euclidean", 90, 0, 70)

wcss_individual(similarity_combined, "Scaled", 0.10, "Euclidean", 180, 0, 3)

wcss_individual(similarity_combined, "Scaled", 0.25, "Euclidean", 180, 0, 8)

wcss_individual(similarity_combined, "Scaled", 0.75, "Euclidean", 180, 0, 70)

Individual Manhattan:

wcss_individual(similarity_combined, "Scaled", 0.10, "Manhattan", 30, 0, 10)

wcss_individual(similarity_combined, "Scaled", 0.25, "Manhattan", 30, 10, 25)

wcss_individual(similarity_combined, "Scaled", 0.75, "Manhattan", 30, 100, 250)

wcss_individual(similarity_combined, "Scaled", 0.10, "Manhattan", 90, 0, 10)

wcss_individual(similarity_combined, "Scaled", 0.25, "Manhattan", 90, 10, 25)

wcss_individual(similarity_combined, "Scaled", 0.75, "Manhattan", 90, 100, 250)

wcss_individual(similarity_combined, "Scaled", 0.10, "Manhattan", 180, 0, 10)

wcss_individual(similarity_combined, "Scaled", 0.25, "Manhattan", 180, 10, 25)

wcss_individual(similarity_combined, "Scaled", 0.75, "Manhattan", 180, 100, 250)

Silhouette Scaled Plots:

Euclidean:

silhouette_grouped(similarity_combined, "Scaled", 0.10, "Euclidean", y_scale="free")

silhouette_grouped(similarity_combined, "Scaled", 0.25, "Euclidean", y_scale="free")

silhouette_grouped(similarity_combined, "Scaled", 0.75, "Euclidean", y_scale="free")

Manhattan:

silhouette_grouped(similarity_combined, "Scaled", 0.10, "Manhattan", y_scale="free")

silhouette_grouped(similarity_combined, "Scaled", 0.25, "Manhattan", y_scale="free")

silhouette_grouped(similarity_combined, "Scaled", 0.75, "Manhattan", y_scale="free")

Individual Euclidean:

silhouette_individual(similarity_combined, "Scaled", 0.10, "Euclidean", 30, 0.50, 0.95)

silhouette_individual(similarity_combined, "Scaled", 0.25, "Euclidean", 30, 0.45, 0.85)

silhouette_individual(similarity_combined, "Scaled", 0.75, "Euclidean", 30, 0.30, 0.75)

silhouette_individual(similarity_combined, "Scaled", 0.10, "Euclidean", 90, 0.65, 0.95)

silhouette_individual(similarity_combined, "Scaled", 0.25, "Euclidean", 90, 0.45, 0.80)

silhouette_individual(similarity_combined, "Scaled", 0.75, "Euclidean", 90, 0.45, 0.75)

silhouette_individual(similarity_combined, "Scaled", 0.10, "Euclidean", 180, 0.65, 0.95)

silhouette_individual(similarity_combined, "Scaled", 0.25, "Euclidean", 180, 0.45, 0.80)

silhouette_individual(similarity_combined, "Scaled", 0.75, "Euclidean", 180, 0.50, 0.75)

Individual Manhattan:

silhouette_individual(similarity_combined, "Scaled", 0.10, "Manhattan", 30, 0.50, 0.95)

silhouette_individual(similarity_combined, "Scaled", 0.25, "Manhattan", 30, 0.45, 0.85)

silhouette_individual(similarity_combined, "Scaled", 0.75, "Manhattan", 30, 0.30, 0.80)

silhouette_individual(similarity_combined, "Scaled", 0.10, "Manhattan", 90, 0.65, 0.95)

silhouette_individual(similarity_combined, "Scaled", 0.25, "Manhattan", 90, 0.45, 0.80)

silhouette_individual(similarity_combined, "Scaled", 0.75, "Manhattan", 90, 0.45, 0.80)

silhouette_individual(similarity_combined, "Scaled", 0.10, "Manhattan", 180, 0.65, 0.95)

silhouette_individual(similarity_combined, "Scaled", 0.25, "Manhattan", 180, 0.45, 0.80)

silhouette_individual(similarity_combined, "Scaled", 0.75, "Manhattan", 180, 0.50, 0.80)